Amiga Games: 500 MB Amiga Software/500 MB Amiga Software - Euber 130 - Amiga Games Disc & Mag.iso/userbox/publicdomain/addipro09/addipro/editor/winclose.h

Text File | 1995-10-25 | 627b | 39 lines

{$if not def AP_WINCLOSE_H}

CONST
  AP_WINCLOSE_H = 0;

PROCEDURE CloseMainWin;
VAR
  err : WORD;
BEGIN
  IF wp <> NIL THEN
  BEGIN
     err := RemoveGList(wp,wp^.FirstGadget,-1);
     ClearMenuStrip(wp);
     CloseWindow(wp);
     FreeGadgets(gl);
     gl := NIL; wp := NIL;
  END;
END;

PROCEDURE CloseProzentWin;
BEGIN
  IF prozentwin <> NIL THEN Fenster_Zu(prozentwin);
  prozentwin := NIL;
END;

PROCEDURE CloseBlätterWin;
VAR
  err : WORD;
BEGIN
  IF BlätterWp <> NIL THEN
  BEGIN
     IF BlätterWp^.FirstGadget <> NIL THEN
       err := RemoveGList(Blätterwp,blätterwp^.FirstGadget,-1);
    CloseWindow(BlätterWp);
  END;
END;

{$endif}